Shareware Super Platinum 8/Shareware Super Platinum 8.iso/mac/DATABASE/OBJ1_2.ZIP;1/C_CURSOR.TXT

Text File | 1992-12-22 | 1.3 KB | 47 lines

'
'Class description:
'
!short:Cursor class structure:
Class Cursor:
~~~~~~~~~~~~~~
Cursor as an object is an screen location (Loc) with cursor size.


Common use:
~~~~~~~~~~~~
LOCAL OBJECT Cursor OF Cursor
Cursor:Get()
...
Cursor:Set()

Source text of class Cursor is in C_Cursor.prg

!seealso: c_loc.ngo:Loc c_color.ngo:Color ob_class.ngo:"Class hierarchy"

!short:~~~~~~~~~~~~~~~~~~~~~~~~
!short:create class Cursor from Loc
!short:  export:
!short:  var Size    //SC_NONE
^BCursor:Size^N: public: numeric
  Cursor size, for actual data look at clipper header SetCurs.ch

!short:  method New=CursorNew      //o:New() --> self
^BCursor:New()^N: public: return self
  Object is filled with default values.

!short:  method Init=CursorInit    //o:Init(Row,Col,Size) --> true
^BCursor:Init(Row,Col,Size)^N: public: return true
  The instvar variables of this object are updated with known parameter
  values.

!short:  method Get=CursorGet      //o:Get() --> true
^BCursor:Get()^N: public: return true
  Cursor size and position are stored to instvar variables of the object.

!short:  method Set=CursorSet      //o:Set() --> true
^BCursor:Set()^N: public: return true
  Cursor size and position are restored from instvar variables of the object.

!short:  endclass